home *** CD-ROM | disk | FTP | other *** search
/ EIDOS Interactive Digital Press Kit ECTS 1997 / EIDOS Digital Press Kit - ECTS 1997 - Disc 1.iso / pc / myt.dir / 00116.ls < prev    next >
Encoding:
Text File  |  1997-08-28  |  490 b   |  17 lines
  1. on maccopypress
  2.   openXLib(":Xtras:macxtra:filecopy")
  3.   set fileName to the pathName & "presstxt:" & the name of cast the mouseCast
  4.   if fileName > EMPTY then
  5.     put fileName
  6.     set loc to "desktop folder:"
  7.     set wFileName to doSaveAsDlg(loc & the name of cast the mouseCast, "word files@*.rtf")
  8.     if wFileName > EMPTY then
  9.       put wFileName
  10.       set result to copyFile(wFileName, fileName)
  11.       put result
  12.     end if
  13.   end if
  14.   closeXLib(":Xtras:macxtra:filecopy")
  15.   abort()
  16. end
  17.